Know Your Baseball - The Greatest Player Resource/Know Your Baseball - Greatest Player.iso/Baseball/Director/SHARED.CST/00004_Script_Rollover Scriptsp

Text File | 1998-09-21 | 5KB | 212 lines

---                    scripts which control screen status and rollovers            ------
global gControls, gButtonStatus,gAVI,gButtonStatus2,gAVI1


on resetscreen
  repeat with x = 21 to 48
    set y = rollover(x)
    if y = 1 then exit repeat
  end repeat
  if y = 0 then screenprompts 5
end

on resetscreenKTG
  repeat with x =10 to 48
    set y = rollover(x)
    if y = 1 then exit repeat
  end repeat
  if y = 0 then screenprompts 5
end

on resetscreenKTGFly
  repeat with x = 19 to 48
    set y = rollover(x)
    if y = 1 then exit repeat
  end repeat
  if y = 0 then screenprompts 5
end

-- displays screen prompts for all areas except KTG

on Screenprompts Which
  mFunction(gControls)  which
  put the result into Field "Indicator"
end

-- displays screen prompts for players KTG

on ScreenpromptsKTG  Which
  mFunction(gControls)  which
  if  the result = Empty  then exit
    if which > 24 then put the result into field "Indicator"
    else
      put " Imagine what the " & the result & "would do in this situation. ¼
 Click on the player to find out." into field "Indicator"
    end if
end

-- special prompts for KTG 3 flyball

on ScreenpromptsFly  Which
  mFunction(gControls)  which
  if which > 18 and which < 27 then
    put "If a Flyball was hit the  " & the result & " would cover this area." into field "Indicator"
  else
    put the result into field "Indicator"
  end if
end


-- hilites players or balls on the screen

on ScreenObjects
  repeat with x = 21  to 33
    if rollover(x) and the castNum of sprite X > 0 and X <> gAVI and X <> gAVI1 then
      set the blend of sprite x  to 100
      screenprompts (x)
      updatestage
    else
      if gButtonStatus2 <> x  then
        if x <> gAVI then
          set the blend of sprite x  to 0
        end if
      else
        set the blend of sprite x to 100
      end if
    end if
  end repeat
end



on ScreenObjects1
  repeat with x = 21  to 34
    if rollover(x) and the castNum of sprite X > 0  then
      set the blend of sprite x  to 100
      screenprompts (x)
      updatestage
    else
      if gButtonStatus2 <> x  then
        set the blend of sprite x  to 0
      else
        set the blend of sprite x to 100
      end if
    end if
  end repeat
end

-- rollover for KTG only (special range)

on ScreenObjectsKTG
  repeat with x = 29 to 33
    if rollover(x) and the castNum of sprite X > 0  then
      set the blend of sprite x  to 100
      screenprompts(x)
      updatestage
    else
      if gButtonStatus2 <> x  then
        set the blend of sprite x  to 0
        updatestage
      else
        set the blend of sprite x to 100
      end if
    end if
  end repeat
end

-- special range for KTG3 field elememts

on Fieldinfo
  repeat with x = 19 to 27
    if rollover(x) and the castNum of sprite X > 0  then
      set the blend of sprite x-9  to 100
      ScreenpromptsFly(x)
      updatestage
    else
      if gButtonStatus2 <> x  then
        set the blend of sprite x -9 to 0
        updatestage
      else
        set the blend of sprite x -9 to 100
      end if
    end if
  end repeat
end

--  rollover for showing text for players in KTG

on TeamKTG
  repeat with x = 10  to 28
    if rollover(x) and the castNum of sprite X > 0 then
      screenpromptsKTG (x)
    end if
  end repeat
end


-- hilites bates in home movie

on CrossBats
  if rollover(44) or rollover(45) then
    set the blend of sprite 44 to 100
    set the blend of sprite 45 to 100
    Screenprompts 44
    updatestage
  else
    set the blend of sprite 44 to 0
    set the blend of sprite 45 to 0
  end if

  if rollover(46) or rollover(47) then
    set the blend of sprite 46 to 100
    set the blend of sprite 47 to 100
    Screenprompts 47
    updatestage

  else
    set the blend of sprite 46 to 0
    set the blend of sprite 47 to 0
  end if
end


on MenuBanner

  repeat with x = 35 to 41
    if rollover(x) and  the castNum of sprite X > 0 then
      set the blend of sprite x  to 100
      set which = x
      screenprompts which
      updatestage
    else
      if gButtonStatus <> x  then
        set the blend of sprite x  to  0
      else
        set the blend of sprite x to 100
      end if
    end if
  end repeat
  resetscreen
end



on MenuBannerKTG
  repeat with x = 35 to 39
    if rollover(x) and  the castNum of sprite X > 0 then
      set the blend of sprite x  to 100
      set which = x
      screenprompts which
      updatestage
    else
      if gButtonStatus <> x  then
        set the blend of sprite x  to  0
      else
        set the blend of sprite x to 100
      end if
    end if
  end repeat
  resetscreenKTG
end